home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / Adobe After Effects 6.0 tryout / MM5.Cab / F3674_PDFL60.dll.304FA6F7_2783_11D4_8520_00C04F602FD3 / PSPROCSET / 18 < prev    next >
Text File  |  2003-07-18  |  2KB  |  106 lines
  1. %%BeginResource: procset pdflev2 6.0 1
  2. %%Copyright: Copyright 1987-2001,2003 Adobe Systems Incorporated. All Rights Reserved.
  3. %%Title: PDF operators, with code specific for Level 2
  4. /docinitialize {
  5. PDF begin
  6. /_defaulthalftone currenthalftone dd
  7. /_defaultblackgeneration currentblackgeneration dd
  8. /_defaultundercolorremoval currentundercolorremoval dd
  9. /_defaultcolortransfer [currentcolortransfer] dd
  10. /_defaulttransfer currenttransfer dd
  11. end
  12. PDFVars /docSetupDone true put
  13. } bd
  14. /initialize {
  15. PDFVars /docSetupDone get {
  16. _defaulthalftone sethalftone
  17. /_defaultblackgeneration load setblackgeneration
  18. /_defaultundercolorremoval load setundercolorremoval
  19. _defaultcolortransfer aload pop setcolortransfer
  20. } if
  21. false setoverprint
  22. } bd
  23. /terminate { } bd
  24. /c /curveto ld
  25. /cs /setcolorspace ld
  26. /l /lineto ld
  27. /m /moveto ld
  28. /q /gsave ld
  29. /Q /grestore ld
  30. /sc /setcolor ld
  31. /setSA/setstrokeadjust ld
  32. /re {
  33. 4 2 roll m
  34. 1 index 0 rlineto
  35. 0 exch rlineto
  36. neg 0 rlineto
  37. h
  38. } bd
  39. /concattransferfuncs {
  40. [ 3 1 roll /exec load exch /exec load ] cvx
  41. } bd
  42. /concatandsettransfer {
  43. /_defaulttransfer load concattransferfuncs settransfer
  44. } bd
  45. /concatandsetcolortransfer {
  46. _defaultcolortransfer aload pop
  47. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  48. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  49. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  50. concattransferfuncs
  51. setcolortransfer
  52. } bd
  53. /defineRes/defineresource ld
  54. /undefineRes/undefineresource ld
  55. /findRes/findresource ld
  56. currentglobal
  57. true systemdict /setglobal get exec
  58. [/Function /ExtGState /Form /Shading /FunctionDictionary /MadePattern /PatternPrototype /DataSource /Image]
  59. { /Generic /Category findresource dup length dict copy /Category defineresource pop }
  60. forall
  61. systemdict /setglobal get exec
  62. /ri
  63. {
  64. /findcolorrendering isdefined?
  65. {
  66. mark exch
  67. findcolorrendering
  68. counttomark 2 eq
  69. { type /booleantype eq
  70. { dup type /nametype eq
  71. { dup /ColorRendering resourcestatus
  72. { pop pop
  73. dup /DefaultColorRendering ne
  74. {
  75. /ColorRendering findresource
  76. setcolorrendering
  77. } if
  78. } if
  79. } if
  80. } if
  81. } if
  82. cleartomark
  83. }
  84. { pop
  85. } ifelse
  86. } bd
  87. /knownColorants? {
  88. pop false
  89. } bd
  90. /getrampcolor {
  91. cvi
  92. /indx exch def
  93. 0 1 NumComp 1 sub {
  94. dup
  95. Samples exch get
  96. dup type /stringtype eq { indx get } if
  97. exch
  98. Scaling exch get aload pop
  99. 3 1 roll
  100. mul add
  101. } for
  102. setcolor
  103. } bd
  104. /sssetbackground { aload pop setcolor } bd
  105. %%EndResource
  106.